home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / DBPWD.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-18  |  2.7 KB  |  95 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDBPWD 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Password Required"
  5.    ClientHeight    =   1260
  6.    ClientLeft      =   2550
  7.    ClientTop       =   3330
  8.    ClientWidth     =   2820
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    HelpContextID   =   2016133
  19.    Icon            =   "DBPwd.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    ScaleHeight     =   1260
  23.    ScaleWidth      =   2820
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin VB.CommandButton cmdCancel 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "&Cancel"
  29.       Height          =   375
  30.       Left            =   1440
  31.       MaskColor       =   &H00000000&
  32.       TabIndex        =   3
  33.       Top             =   795
  34.       Width           =   1215
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "&OK"
  38.       Default         =   -1  'True
  39.       Height          =   375
  40.       Left            =   120
  41.       MaskColor       =   &H00000000&
  42.       TabIndex        =   2
  43.       Top             =   795
  44.       Width           =   1215
  45.    End
  46.    Begin VB.TextBox txtPassword 
  47.       Height          =   285
  48.       Left            =   120
  49.       PasswordChar    =   "*"
  50.       TabIndex        =   1
  51.       Top             =   315
  52.       Width           =   2535
  53.    End
  54.    Begin VB.Label lblLabels 
  55.       AutoSize        =   -1  'True
  56.       Caption         =   "Enter database password:"
  57.       Height          =   195
  58.       Index           =   0
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       Top             =   75
  62.       Width           =   1905
  63.    End
  64. Attribute VB_Name = "frmDBPWD"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Option Explicit
  70. '>>>>>>>>>>>>>>>>>>>>>>>>
  71. Const FORMCAPTION = "Password Required"
  72. Const BUTTON1 = "&OK"
  73. Const BUTTON2 = "&Cancel"
  74. Const Label1 = "&Enter database password:"
  75. '>>>>>>>>>>>>>>>>>>>>>>>>
  76. Public PWD As String
  77. Private Sub cmdCancel_Click()
  78.   PWD = vbNullString
  79.   Hide
  80. End Sub
  81. Private Sub Form_Load()
  82.   Me.Caption = FORMCAPTION
  83.   cmdOK.Caption = BUTTON1
  84.   cmdCancel.Caption = BUTTON2
  85.   lblLabels(0).Caption = Label1
  86. End Sub
  87. Private Sub cmdOK_Click()
  88.   PWD = txtPassword.Text
  89.   Hide
  90. End Sub
  91. Private Sub txtPassword_GotFocus()
  92.   txtPassword.SelStart = 0
  93.   txtPassword.SelLength = Len(txtPassword.Text)
  94. End Sub
  95.